home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1993 July / InfoMagic USENET CD-ROM July 1993.ISO / sources / reviewed / volume01 / GNU_bc / patch01 < prev    next >
Encoding:
Internet Message Format  |  1992-03-03  |  44.0 KB
  1. From: Phil Nelson <phil@cs.wwu.edu>
  2. Subject:  v01i069:  GNU_bc - numeric processing language, Patch01
  3. Newsgroups: comp.sources.reviewed
  4. Approved: csr@calvin.dgbt.doc.ca
  5.  
  6. Submitted-by: Phil Nelson <phil@cs.wwu.edu>
  7. Posting-number: Volume 1, Issue 69
  8. Archive-name: GNU_bc/patch01
  9. Patch-To: GNU_bc: Volume 1, Issue 41-48
  10.  
  11. Here is patch 1 for GNU_bc.  This patch brings GNU_bc to version 1.02.
  12.  
  13. This is patch contains mainly bug fixes.  It is recommended that people
  14. use the supplied flex scanner.  (Via "make derived" before the full
  15. make.) The most recent version of flex has a bug that hangs the scanner
  16. if the NUL character is input.
  17.  
  18. For a complete list of changes, see the ChangeLog after applying the
  19. patch.
  20.  
  21.  
  22.  
  23. diff -c2 -r 1.01/ChangeLog 1.02/ChangeLog
  24. *** 1.01/ChangeLog    Thu Feb  6 16:45:19 1992
  25. --- 1.02/ChangeLog    Tue Mar  3 10:29:20 1992
  26. ***************
  27. *** 1,2 ****
  28. --- 1,68 ----
  29. + Tue Mar  3 10:16:07 1992  Phil Nelson  (phil at cs.wwu.edu)
  30. + 
  31. +     * (main.c) Added missing } at line 140.
  32. + 
  33. +     * (version.h) Changed date of version 1.02 to March 3, 1992.
  34. + 
  35. + Mon Feb  3 16:07:57 1992  Phil Nelson  (phil at cs.wwu.edu)
  36. + 
  37. +     * (version.h) Updated version number and date.
  38. + 
  39. +     * (bc.1) Added a new "VERSION" section.
  40. + 
  41. + Wed Jan 29 14:13:55 1992  Phil Nelson  (phil at cs.wwu.edu)
  42. + 
  43. +     * (execute.c) Removed the setjmp and longjmp calls that may have
  44. +       caused some problems with interrupted programs.
  45. + 
  46. + Thu Jan 16 17:08:16 1992  Phil Nelson  (phil at cs.wwu.edu)
  47. + 
  48. +     * (Makefile) Changed install to install the manual.
  49. + 
  50. + Wed Jan  8 13:23:42 1992  Phil Nelson  (phil at cs.wwu.edu)
  51. + 
  52. +     * Change all copyright notices to include 1992.
  53. +     
  54. +     * (load.c) Added termination to "load_code" to ignore code
  55. +       after an error has been found.
  56. + 
  57. +     * (scan.l) Changed the check for NUL characters in STRING tokens
  58. +       (before the close quote) to work correctly.  Also added code to
  59. +       report illegal characters in a more readable output format.
  60. + 
  61. +     * (bc.1) Added the exclusion of NUL characters from strings in
  62. +       the "differences" section and updated date of last change.
  63. + 
  64. +     * (const.h) Changed BC_MAX_SEGS to 16.
  65. + 
  66. + Mon Jan  6 14:20:02 1992  Phil Nelson  (phil at cs.wwu.edu)
  67. + 
  68. +     * (number.c) Changed the out_num routine to use a correct field
  69. +       size for bases greater than 16.  e.g.  For base 1000, each
  70. +       "digit" is a three digit number.
  71. + 
  72. +     * (Makefile) Added the "8" flag to get an 8 bit scanner.
  73. + 
  74. +     * (scan.l) Changed "char *" to "unsigned char *" to match the
  75. +       declaration of yytext for the 8 bit scanner.  Also added code
  76. +       to detect the null character in strings and generate an error.
  77. + 
  78. + Sat Jan  4 20:32:20 1992  Phil Nelson  (phil at cs.wwu.edu)
  79. + 
  80. +     * (const.h) Changed BC_BASE_MAX to INT_MAX to allow more bases!
  81. + 
  82. + Mon Dec 30 21:47:28 1991  Phil Nelson  (phil at cs.wwu.edu)
  83. + 
  84. +     * (main.c) Fixed the bug that loaded the math library before
  85. +       every file.
  86. + 
  87. +     * (bc.y) Removed some type declarations that duplicated token
  88. +       definitions so it could be run through bison.
  89. + 
  90. +     * (load.c) Added a check for maximum code size.
  91. + 
  92. +     * (Makefile) Added a prefix for LIBDIR and BINDIR so it can be
  93. +       changed easily.
  94. + 
  95.   Mon Nov 25 13:11:17 1991  Phil Nelson  (phil at cs.wwu.edu)
  96.   
  97. Common subdirectories: 1.01/Examples and 1.02/Examples
  98. diff -c2 -r 1.01/MANIFEST 1.02/MANIFEST
  99. *** 1.01/MANIFEST    Thu Feb  6 16:45:20 1992
  100. --- 1.02/MANIFEST    Tue Mar  3 10:29:22 1992
  101. ***************
  102. *** 45,49 ****
  103.    sbc.y                      2    
  104.    scan.c.dist                6    
  105. !  scan.l                     1    
  106.    storage.c                  4    
  107.    util.c                     3    
  108. --- 45,49 ----
  109.    sbc.y                      2    
  110.    scan.c.dist                6    
  111. !  scan.l                     2    
  112.    storage.c                  4    
  113.    util.c                     3    
  114. diff -c2 -r 1.01/Makefile 1.02/Makefile
  115. *** 1.01/Makefile    Thu Feb  6 16:45:21 1992
  116. --- 1.02/Makefile    Tue Mar  3 10:29:23 1992
  117. ***************
  118. *** 7,12 ****
  119.   #  LIBDIR and BINDIR are where bc and libmath.b will be put.
  120.   #
  121. ! LIBDIR = /usr/local/lib
  122. ! BINDIR = /usr/local/bin
  123.   #
  124.   #  INCLUDE is the directory from where header files are included.
  125. --- 7,14 ----
  126.   #  LIBDIR and BINDIR are where bc and libmath.b will be put.
  127.   #
  128. ! PREFIX = /usr/local
  129. ! LIBDIR = $(PREFIX)/lib
  130. ! BINDIR = $(PREFIX)/bin
  131. ! MANDIR = $(PREFIX)/man/man1
  132.   #
  133.   #  INCLUDE is the directory from where header files are included.
  134. ***************
  135. *** 23,27 ****
  136.   SHELL = /bin/sh
  137.   YACC = yacc
  138. ! LEX = flex -I
  139.   #LEX = lex
  140.   CC = cc
  141. --- 25,30 ----
  142.   SHELL = /bin/sh
  143.   YACC = yacc
  144. ! #YACC = bison -y
  145. ! LEX = flex -I8
  146.   #LEX = lex
  147.   CC = cc
  148. ***************
  149. *** 65,69 ****
  150.   
  151.   all: bc
  152. ! bc: config.h bc.$O $(OFILES) global.$O
  153.       $(CC) -o bc $(LDFLAGS) bc.$O $(OFILES) global.$O
  154.   
  155. --- 68,72 ----
  156.   
  157.   all: bc
  158. ! bc: $& config.h bc.$O $(OFILES) global.$O
  159.       $(CC) -o bc $(LDFLAGS) bc.$O $(OFILES) global.$O
  160.   
  161. ***************
  162. *** 91,94 ****
  163. --- 94,98 ----
  164.       if grep -s BC_MATH_FILE config.h; then rm -f $(LIBDIR)/libmath.b; \
  165.       cp libmath.b $(LIBDIR); chmod 444 $(LIBDIR)/libmath.b; else true; fi
  166. +     cp bc.1 $(MANDIR)
  167.   
  168.   dist: $(EXTRAFILES)
  169. Common subdirectories: 1.01/Test and 1.02/Test
  170. diff -c2 -r 1.01/bc.1 1.02/bc.1
  171. *** 1.01/bc.1    Thu Feb  6 16:45:40 1992
  172. --- 1.02/bc.1    Tue Mar  3 10:29:43 1992
  173. ***************
  174. *** 3,7 ****
  175.   .\"
  176.   .\" This file is part of bc written for MINIX.
  177. ! .\" Copyright (C) 1991 Free Software Foundation, Inc.
  178.   .\"
  179.   .\" This program is free software; you can redistribute it and/or modify
  180. --- 3,7 ----
  181.   .\"
  182.   .\" This file is part of bc written for MINIX.
  183. ! .\" Copyright (C) 1991, 1992 Free Software Foundation, Inc.
  184.   .\"
  185.   .\" This program is free software; you can redistribute it and/or modify
  186. ***************
  187. *** 27,31 ****
  188.   .\"
  189.   .\"
  190. ! .TH bc 1 .\" "Command Manual" v1.01 "Nov 22, 1991"
  191.   .SH NAME
  192.   bc - An arbitrary precision calculator language
  193. --- 27,31 ----
  194.   .\"
  195.   .\"
  196. ! .TH bc 1 .\" "Command Manual" v1.02 "Feb 3, 1992"
  197.   .SH NAME
  198.   bc - An arbitrary precision calculator language
  199. ***************
  200. *** 32,35 ****
  201. --- 32,37 ----
  202.   .SH SYNTAX
  203.   \fBbc\fR [ \fB-lws\fR ] [ \fI file ...\fR ]
  204. + .SH VERSION
  205. + This man page documents GNU bc version 1.02.
  206.   .SH DESCRIPTION
  207.   \fBbc\fR is a language that supports arbitrary precision numbers
  208. ***************
  209. *** 589,593 ****
  210.   A major source of differences is
  211.   extensions, where a feature is extended to add more functionality and
  212. !  additions, where new features are added. 
  213.   The following is the list of differences and extensions.
  214.   .IP LANG environment
  215. --- 591,595 ----
  216.   A major source of differences is
  217.   extensions, where a feature is extended to add more functionality and
  218. ! additions, where new features are added. 
  219.   The following is the list of differences and extensions.
  220.   .IP LANG environment
  221. ***************
  222. *** 601,604 ****
  223. --- 603,609 ----
  224.   been extended to be multi-character names that start with a letter and
  225.   may contain letters, numbers and the underscore character.
  226. + .IP Strings
  227. + Strings are not allowed to contain NUL characters.  POSIX says all characters
  228. + must be included in strings.
  229.   .IP last
  230.   POSIX \fBbc\fR does not have a \fBlast\fR variable.  Some implementations
  231. ***************
  232. *** 661,664 ****
  233. --- 666,681 ----
  234.   of the current execution block.  A runtime warning will not terminate the
  235.   current execution block.
  236. + .IP "Interrupts"
  237. + During an interactive session, the SIGINT signal (usually generated by
  238. + the control-C character from the terminal) will cause execution of the
  239. + current execution block to be interrupted.  It will display a "runtime"
  240. + error indicating which function was interrupted.  After all runtime
  241. + structures have been cleaned up, a message will be printed to notify the
  242. + user that \fBbc\fR is ready for more input.  All previously defined functions
  243. + remain defined and the value of all non-auto variables are the value at
  244. + the point of interruption.  All auto variables and function parameters
  245. + are removed during the
  246. + clean up process.  During a non-interactive
  247. + session, the SIGINT signal will terminate the entire run of \fBbc\fR.
  248.   .SS LIMITS
  249.   The following are the limits currently in place for this 
  250. diff -c2 -r 1.01/bc.c.dist 1.02/bc.c.dist
  251. *** 1.01/bc.c.dist    Thu Feb  6 16:45:45 1992
  252. --- 1.02/bc.c.dist    Tue Mar  3 10:29:48 1992
  253. ***************
  254. *** 8,12 ****
  255.   
  256.   /*  This file is part of bc written for MINIX.
  257. !     Copyright (C) 1991 Free Software Foundation, Inc.
  258.   
  259.       This program is free software; you can redistribute it and/or modify
  260. --- 8,12 ----
  261.   
  262.   /*  This file is part of bc written for MINIX.
  263. !     Copyright (C) 1991, 1992 Free Software Foundation, Inc.
  264.   
  265.       This program is free software; you can redistribute it and/or modify
  266. ***************
  267. *** 685,689 ****
  268.       {
  269.   case 1:
  270. ! #line 108 "bc.y"
  271.   {
  272.                     yyval.i_value = 0;
  273. --- 685,689 ----
  274.       {
  275.   case 1:
  276. ! #line 106 "bc.y"
  277.   {
  278.                     yyval.i_value = 0;
  279. ***************
  280. *** 696,708 ****
  281.   break;
  282.   case 3:
  283. ! #line 119 "bc.y"
  284.   { run_code (); }
  285.   break;
  286.   case 4:
  287. ! #line 121 "bc.y"
  288.   { run_code (); }
  289.   break;
  290.   case 5:
  291. ! #line 123 "bc.y"
  292.   {
  293.                     yyerrok;
  294. --- 696,708 ----
  295.   break;
  296.   case 3:
  297. ! #line 117 "bc.y"
  298.   { run_code (); }
  299.   break;
  300.   case 4:
  301. ! #line 119 "bc.y"
  302.   { run_code (); }
  303.   break;
  304.   case 5:
  305. ! #line 121 "bc.y"
  306.   {
  307.                     yyerrok;
  308. ***************
  309. *** 711,735 ****
  310.   break;
  311.   case 6:
  312. ! #line 129 "bc.y"
  313.   { yyval.i_value = 0; }
  314.   break;
  315.   case 10:
  316. ! #line 135 "bc.y"
  317.   { yyval.i_value = 0; }
  318.   break;
  319.   case 17:
  320. ! #line 144 "bc.y"
  321.   { yyval.i_value = yyvsp[0].i_value; }
  322.   break;
  323.   case 18:
  324. ! #line 147 "bc.y"
  325.   { warranty (""); }
  326.   break;
  327.   case 19:
  328. ! #line 149 "bc.y"
  329.   { limits (); }
  330.   break;
  331.   case 20:
  332. ! #line 151 "bc.y"
  333.   {
  334.                     if (yyvsp[0].i_value & 2)
  335. --- 711,735 ----
  336.   break;
  337.   case 6:
  338. ! #line 127 "bc.y"
  339.   { yyval.i_value = 0; }
  340.   break;
  341.   case 10:
  342. ! #line 133 "bc.y"
  343.   { yyval.i_value = 0; }
  344.   break;
  345.   case 17:
  346. ! #line 142 "bc.y"
  347.   { yyval.i_value = yyvsp[0].i_value; }
  348.   break;
  349.   case 18:
  350. ! #line 145 "bc.y"
  351.   { warranty (""); }
  352.   break;
  353.   case 19:
  354. ! #line 147 "bc.y"
  355.   { limits (); }
  356.   break;
  357.   case 20:
  358. ! #line 149 "bc.y"
  359.   {
  360.                     if (yyvsp[0].i_value & 2)
  361. ***************
  362. *** 742,746 ****
  363.   break;
  364.   case 21:
  365. ! #line 160 "bc.y"
  366.   {
  367.                     yyval.i_value = 0;
  368. --- 742,746 ----
  369.   break;
  370.   case 21:
  371. ! #line 158 "bc.y"
  372.   {
  373.                     yyval.i_value = 0;
  374. ***************
  375. *** 751,755 ****
  376.   break;
  377.   case 22:
  378. ! #line 167 "bc.y"
  379.   {
  380.                     if (break_label == 0)
  381. --- 751,755 ----
  382.   break;
  383.   case 22:
  384. ! #line 165 "bc.y"
  385.   {
  386.                     if (break_label == 0)
  387. ***************
  388. *** 763,767 ****
  389.   break;
  390.   case 23:
  391. ! #line 177 "bc.y"
  392.   {
  393.                     warn ("Continue statement");
  394. --- 763,767 ----
  395.   break;
  396.   case 23:
  397. ! #line 175 "bc.y"
  398.   {
  399.                     warn ("Continue statement");
  400. ***************
  401. *** 776,796 ****
  402.   break;
  403.   case 24:
  404. ! #line 188 "bc.y"
  405.   { exit (0); }
  406.   break;
  407.   case 25:
  408. ! #line 190 "bc.y"
  409.   { generate ("h"); }
  410.   break;
  411.   case 26:
  412. ! #line 192 "bc.y"
  413.   { generate ("0R"); }
  414.   break;
  415.   case 27:
  416. ! #line 194 "bc.y"
  417.   { generate ("R"); }
  418.   break;
  419.   case 28:
  420. ! #line 196 "bc.y"
  421.   {
  422.                     yyvsp[0].i_value = break_label; 
  423. --- 776,796 ----
  424.   break;
  425.   case 24:
  426. ! #line 186 "bc.y"
  427.   { exit (0); }
  428.   break;
  429.   case 25:
  430. ! #line 188 "bc.y"
  431.   { generate ("h"); }
  432.   break;
  433.   case 26:
  434. ! #line 190 "bc.y"
  435.   { generate ("0R"); }
  436.   break;
  437.   case 27:
  438. ! #line 192 "bc.y"
  439.   { generate ("R"); }
  440.   break;
  441.   case 28:
  442. ! #line 194 "bc.y"
  443.   {
  444.                     yyvsp[0].i_value = break_label; 
  445. ***************
  446. *** 799,803 ****
  447.   break;
  448.   case 29:
  449. ! #line 201 "bc.y"
  450.   {
  451.                     if (yyvsp[-1].i_value > 1)
  452. --- 799,803 ----
  453.   break;
  454.   case 29:
  455. ! #line 199 "bc.y"
  456.   {
  457.                     if (yyvsp[-1].i_value > 1)
  458. ***************
  459. *** 812,816 ****
  460.   break;
  461.   case 30:
  462. ! #line 212 "bc.y"
  463.   {
  464.                     if (yyvsp[-1].i_value < 0) generate ("1");
  465. --- 812,816 ----
  466.   break;
  467.   case 30:
  468. ! #line 210 "bc.y"
  469.   {
  470.                     if (yyvsp[-1].i_value < 0) generate ("1");
  471. ***************
  472. *** 825,829 ****
  473.   break;
  474.   case 31:
  475. ! #line 223 "bc.y"
  476.   {
  477.                     if (yyvsp[-1].i_value > 1)
  478. --- 825,829 ----
  479.   break;
  480.   case 31:
  481. ! #line 221 "bc.y"
  482.   {
  483.                     if (yyvsp[-1].i_value > 1)
  484. ***************
  485. *** 837,841 ****
  486.   break;
  487.   case 32:
  488. ! #line 233 "bc.y"
  489.   {
  490.                     sprintf (genstr, "J%1d:N%1d:",
  491. --- 837,841 ----
  492.   break;
  493.   case 32:
  494. ! #line 231 "bc.y"
  495.   {
  496.                     sprintf (genstr, "J%1d:N%1d:",
  497. ***************
  498. *** 847,851 ****
  499.   break;
  500.   case 33:
  501. ! #line 241 "bc.y"
  502.   {
  503.                     yyvsp[-1].i_value = if_label;
  504. --- 847,851 ----
  505.   break;
  506.   case 33:
  507. ! #line 239 "bc.y"
  508.   {
  509.                     yyvsp[-1].i_value = if_label;
  510. ***************
  511. *** 856,860 ****
  512.   break;
  513.   case 34:
  514. ! #line 248 "bc.y"
  515.   {
  516.                     sprintf (genstr, "N%1d:", if_label); 
  517. --- 856,860 ----
  518.   break;
  519.   case 34:
  520. ! #line 246 "bc.y"
  521.   {
  522.                     sprintf (genstr, "N%1d:", if_label); 
  523. ***************
  524. *** 864,868 ****
  525.   break;
  526.   case 35:
  527. ! #line 254 "bc.y"
  528.   {
  529.                     yyvsp[0].i_value = next_label++;
  530. --- 864,868 ----
  531.   break;
  532.   case 35:
  533. ! #line 252 "bc.y"
  534.   {
  535.                     yyvsp[0].i_value = next_label++;
  536. ***************
  537. *** 872,876 ****
  538.   break;
  539.   case 36:
  540. ! #line 260 "bc.y"
  541.   {
  542.                     yyvsp[0].i_value = break_label; 
  543. --- 872,876 ----
  544.   break;
  545.   case 36:
  546. ! #line 258 "bc.y"
  547.   {
  548.                     yyvsp[0].i_value = break_label; 
  549. ***************
  550. *** 881,885 ****
  551.   break;
  552.   case 37:
  553. ! #line 267 "bc.y"
  554.   {
  555.                     sprintf (genstr, "J%1d:N%1d:", yyvsp[-6].i_value, break_label);
  556. --- 881,885 ----
  557.   break;
  558.   case 37:
  559. ! #line 265 "bc.y"
  560.   {
  561.                     sprintf (genstr, "J%1d:N%1d:", yyvsp[-6].i_value, break_label);
  562. ***************
  563. *** 889,901 ****
  564.   break;
  565.   case 38:
  566. ! #line 273 "bc.y"
  567.   { yyval.i_value = 0; }
  568.   break;
  569.   case 39:
  570. ! #line 275 "bc.y"
  571.   {  warn ("print statement"); }
  572.   break;
  573.   case 43:
  574. ! #line 282 "bc.y"
  575.   {
  576.                     generate ("O");
  577. --- 889,901 ----
  578.   break;
  579.   case 38:
  580. ! #line 271 "bc.y"
  581.   { yyval.i_value = 0; }
  582.   break;
  583.   case 39:
  584. ! #line 273 "bc.y"
  585.   {  warn ("print statement"); }
  586.   break;
  587.   case 43:
  588. ! #line 280 "bc.y"
  589.   {
  590.                     generate ("O");
  591. ***************
  592. *** 905,913 ****
  593.   break;
  594.   case 44:
  595. ! #line 288 "bc.y"
  596.   { generate ("P"); }
  597.   break;
  598.   case 46:
  599. ! #line 292 "bc.y"
  600.   {
  601.                     warn ("else clause in if statement");
  602. --- 905,913 ----
  603.   break;
  604.   case 44:
  605. ! #line 286 "bc.y"
  606.   { generate ("P"); }
  607.   break;
  608.   case 46:
  609. ! #line 290 "bc.y"
  610.   {
  611.                     warn ("else clause in if statement");
  612. ***************
  613. *** 919,923 ****
  614.   break;
  615.   case 48:
  616. ! #line 302 "bc.y"
  617.   {
  618.                     /* Check auto list against parameter list? */
  619. --- 919,923 ----
  620.   break;
  621.   case 48:
  622. ! #line 300 "bc.y"
  623.   {
  624.                     /* Check auto list against parameter list? */
  625. ***************
  626. *** 933,937 ****
  627.   break;
  628.   case 49:
  629. ! #line 314 "bc.y"
  630.   {
  631.                     generate ("0R]");
  632. --- 933,937 ----
  633.   break;
  634.   case 49:
  635. ! #line 312 "bc.y"
  636.   {
  637.                     generate ("0R]");
  638. ***************
  639. *** 940,980 ****
  640.   break;
  641.   case 50:
  642. ! #line 320 "bc.y"
  643.   { yyval.a_value = NULL; }
  644.   break;
  645.   case 52:
  646. ! #line 324 "bc.y"
  647.   { yyval.a_value = NULL; }
  648.   break;
  649.   case 53:
  650. ! #line 326 "bc.y"
  651.   { yyval.a_value = yyvsp[-1].a_value; }
  652.   break;
  653.   case 54:
  654. ! #line 328 "bc.y"
  655.   { yyval.a_value = yyvsp[-1].a_value; }
  656.   break;
  657.   case 55:
  658. ! #line 331 "bc.y"
  659.   { yyval.a_value = nextarg (NULL, lookup (yyvsp[0].s_value,SIMPLE)); }
  660.   break;
  661.   case 56:
  662. ! #line 333 "bc.y"
  663.   { yyval.a_value = nextarg (NULL, lookup (yyvsp[-2].s_value,ARRAY)); }
  664.   break;
  665.   case 57:
  666. ! #line 335 "bc.y"
  667.   { yyval.a_value = nextarg (yyvsp[-2].a_value, lookup (yyvsp[0].s_value,SIMPLE)); }
  668.   break;
  669.   case 58:
  670. ! #line 337 "bc.y"
  671.   { yyval.a_value = nextarg (yyvsp[-4].a_value, lookup (yyvsp[-2].s_value,ARRAY)); }
  672.   break;
  673.   case 59:
  674. ! #line 340 "bc.y"
  675.   { yyval.a_value = NULL; }
  676.   break;
  677.   case 61:
  678. ! #line 344 "bc.y"
  679.   {
  680.                     if (yyvsp[0].i_value > 1) warn ("comparison in argument");
  681. --- 940,980 ----
  682.   break;
  683.   case 50:
  684. ! #line 318 "bc.y"
  685.   { yyval.a_value = NULL; }
  686.   break;
  687.   case 52:
  688. ! #line 322 "bc.y"
  689.   { yyval.a_value = NULL; }
  690.   break;
  691.   case 53:
  692. ! #line 324 "bc.y"
  693.   { yyval.a_value = yyvsp[-1].a_value; }
  694.   break;
  695.   case 54:
  696. ! #line 326 "bc.y"
  697.   { yyval.a_value = yyvsp[-1].a_value; }
  698.   break;
  699.   case 55:
  700. ! #line 329 "bc.y"
  701.   { yyval.a_value = nextarg (NULL, lookup (yyvsp[0].s_value,SIMPLE)); }
  702.   break;
  703.   case 56:
  704. ! #line 331 "bc.y"
  705.   { yyval.a_value = nextarg (NULL, lookup (yyvsp[-2].s_value,ARRAY)); }
  706.   break;
  707.   case 57:
  708. ! #line 333 "bc.y"
  709.   { yyval.a_value = nextarg (yyvsp[-2].a_value, lookup (yyvsp[0].s_value,SIMPLE)); }
  710.   break;
  711.   case 58:
  712. ! #line 335 "bc.y"
  713.   { yyval.a_value = nextarg (yyvsp[-4].a_value, lookup (yyvsp[-2].s_value,ARRAY)); }
  714.   break;
  715.   case 59:
  716. ! #line 338 "bc.y"
  717.   { yyval.a_value = NULL; }
  718.   break;
  719.   case 61:
  720. ! #line 342 "bc.y"
  721.   {
  722.                     if (yyvsp[0].i_value > 1) warn ("comparison in argument");
  723. ***************
  724. *** 983,987 ****
  725.   break;
  726.   case 62:
  727. ! #line 349 "bc.y"
  728.   {
  729.                     sprintf (genstr, "K%d:", -lookup (yyvsp[-2].s_value,ARRAY));
  730. --- 983,987 ----
  731.   break;
  732.   case 62:
  733. ! #line 347 "bc.y"
  734.   {
  735.                     sprintf (genstr, "K%d:", -lookup (yyvsp[-2].s_value,ARRAY));
  736. ***************
  737. *** 991,995 ****
  738.   break;
  739.   case 63:
  740. ! #line 355 "bc.y"
  741.   {
  742.                     if (yyvsp[0].i_value > 1) warn ("comparison in argument");
  743. --- 991,995 ----
  744.   break;
  745.   case 63:
  746. ! #line 353 "bc.y"
  747.   {
  748.                     if (yyvsp[0].i_value > 1) warn ("comparison in argument");
  749. ***************
  750. *** 998,1002 ****
  751.   break;
  752.   case 64:
  753. ! #line 360 "bc.y"
  754.   {
  755.                     sprintf (genstr, "K%d:", -lookup (yyvsp[-2].s_value,ARRAY));
  756. --- 998,1002 ----
  757.   break;
  758.   case 64:
  759. ! #line 358 "bc.y"
  760.   {
  761.                     sprintf (genstr, "K%d:", -lookup (yyvsp[-2].s_value,ARRAY));
  762. ***************
  763. *** 1006,1010 ****
  764.   break;
  765.   case 65:
  766. ! #line 367 "bc.y"
  767.   {
  768.                     yyval.i_value = -1;
  769. --- 1006,1010 ----
  770.   break;
  771.   case 65:
  772. ! #line 365 "bc.y"
  773.   {
  774.                     yyval.i_value = -1;
  775. ***************
  776. *** 1013,1017 ****
  777.   break;
  778.   case 67:
  779. ! #line 374 "bc.y"
  780.   {
  781.                     yyval.i_value = 0;
  782. --- 1013,1017 ----
  783.   break;
  784.   case 67:
  785. ! #line 372 "bc.y"
  786.   {
  787.                     yyval.i_value = 0;
  788. ***************
  789. *** 1020,1024 ****
  790.   break;
  791.   case 68:
  792. ! #line 379 "bc.y"
  793.   {
  794.                     if (yyvsp[0].i_value > 1)
  795. --- 1020,1024 ----
  796.   break;
  797.   case 68:
  798. ! #line 377 "bc.y"
  799.   {
  800.                     if (yyvsp[0].i_value > 1)
  801. ***************
  802. *** 1027,1031 ****
  803.   break;
  804.   case 69:
  805. ! #line 385 "bc.y"
  806.   {
  807.                     if (yyvsp[0].c_value != '=')
  808. --- 1027,1031 ----
  809.   break;
  810.   case 69:
  811. ! #line 383 "bc.y"
  812.   {
  813.                     if (yyvsp[0].c_value != '=')
  814. ***************
  815. *** 1040,1044 ****
  816.   break;
  817.   case 70:
  818. ! #line 396 "bc.y"
  819.   {
  820.                     if (yyvsp[0].i_value > 1) warn("comparison in assignment");
  821. --- 1040,1044 ----
  822.   break;
  823.   case 70:
  824. ! #line 394 "bc.y"
  825.   {
  826.                     if (yyvsp[0].i_value > 1) warn("comparison in assignment");
  827. ***************
  828. *** 1057,1061 ****
  829.   break;
  830.   case 71:
  831. ! #line 412 "bc.y"
  832.   {
  833.                     warn("&& operator");
  834. --- 1057,1061 ----
  835.   break;
  836.   case 71:
  837. ! #line 410 "bc.y"
  838.   {
  839.                     warn("&& operator");
  840. ***************
  841. *** 1066,1070 ****
  842.   break;
  843.   case 72:
  844. ! #line 419 "bc.y"
  845.   {
  846.                     sprintf (genstr, "DZ%d:p1N%d:", yyvsp[-2].i_value, yyvsp[-2].i_value);
  847. --- 1066,1070 ----
  848.   break;
  849.   case 72:
  850. ! #line 417 "bc.y"
  851.   {
  852.                     sprintf (genstr, "DZ%d:p1N%d:", yyvsp[-2].i_value, yyvsp[-2].i_value);
  853. ***************
  854. *** 1074,1078 ****
  855.   break;
  856.   case 73:
  857. ! #line 425 "bc.y"
  858.   {
  859.                     warn("|| operator");
  860. --- 1074,1078 ----
  861.   break;
  862.   case 73:
  863. ! #line 423 "bc.y"
  864.   {
  865.                     warn("|| operator");
  866. ***************
  867. *** 1083,1087 ****
  868.   break;
  869.   case 74:
  870. ! #line 432 "bc.y"
  871.   {
  872.                     int tmplab;
  873. --- 1083,1087 ----
  874.   break;
  875.   case 74:
  876. ! #line 430 "bc.y"
  877.   {
  878.                     int tmplab;
  879. ***************
  880. *** 1094,1098 ****
  881.   break;
  882.   case 75:
  883. ! #line 441 "bc.y"
  884.   {
  885.                     yyval.i_value = yyvsp[0].i_value;
  886. --- 1094,1098 ----
  887.   break;
  888.   case 75:
  889. ! #line 439 "bc.y"
  890.   {
  891.                     yyval.i_value = yyvsp[0].i_value;
  892. ***************
  893. *** 1102,1106 ****
  894.   break;
  895.   case 76:
  896. ! #line 447 "bc.y"
  897.   {
  898.                     yyval.i_value = 3;
  899. --- 1102,1106 ----
  900.   break;
  901.   case 76:
  902. ! #line 445 "bc.y"
  903.   {
  904.                     yyval.i_value = 3;
  905. ***************
  906. *** 1132,1136 ****
  907.   break;
  908.   case 77:
  909. ! #line 475 "bc.y"
  910.   {
  911.                     generate ("+");
  912. --- 1132,1136 ----
  913.   break;
  914.   case 77:
  915. ! #line 473 "bc.y"
  916.   {
  917.                     generate ("+");
  918. ***************
  919. *** 1139,1143 ****
  920.   break;
  921.   case 78:
  922. ! #line 480 "bc.y"
  923.   {
  924.                     generate ("-");
  925. --- 1139,1143 ----
  926.   break;
  927.   case 78:
  928. ! #line 478 "bc.y"
  929.   {
  930.                     generate ("-");
  931. ***************
  932. *** 1146,1150 ****
  933.   break;
  934.   case 79:
  935. ! #line 485 "bc.y"
  936.   {
  937.                     genstr[0] = yyvsp[-1].c_value;
  938. --- 1146,1150 ----
  939.   break;
  940.   case 79:
  941. ! #line 483 "bc.y"
  942.   {
  943.                     genstr[0] = yyvsp[-1].c_value;
  944. ***************
  945. *** 1155,1159 ****
  946.   break;
  947.   case 80:
  948. ! #line 492 "bc.y"
  949.   {
  950.                     generate ("^");
  951. --- 1155,1159 ----
  952.   break;
  953.   case 80:
  954. ! #line 490 "bc.y"
  955.   {
  956.                     generate ("^");
  957. ***************
  958. *** 1162,1166 ****
  959.   break;
  960.   case 81:
  961. ! #line 497 "bc.y"
  962.   {
  963.                     generate ("n");
  964. --- 1162,1166 ----
  965.   break;
  966.   case 81:
  967. ! #line 495 "bc.y"
  968.   {
  969.                     generate ("n");
  970. ***************
  971. *** 1169,1173 ****
  972.   break;
  973.   case 82:
  974. ! #line 502 "bc.y"
  975.   {
  976.                     yyval.i_value = 1;
  977. --- 1169,1173 ----
  978.   break;
  979.   case 82:
  980. ! #line 500 "bc.y"
  981.   {
  982.                     yyval.i_value = 1;
  983. ***************
  984. *** 1180,1184 ****
  985.   break;
  986.   case 83:
  987. ! #line 511 "bc.y"
  988.   {
  989.                     int len = strlen(yyvsp[0].s_value);
  990. --- 1180,1184 ----
  991.   break;
  992.   case 83:
  993. ! #line 509 "bc.y"
  994.   {
  995.                     int len = strlen(yyvsp[0].s_value);
  996. ***************
  997. *** 1198,1206 ****
  998.   break;
  999.   case 84:
  1000. ! #line 527 "bc.y"
  1001.   { yyval.i_value = yyvsp[-1].i_value | 1; }
  1002.   break;
  1003.   case 85:
  1004. ! #line 529 "bc.y"
  1005.   {
  1006.                     yyval.i_value = 1;
  1007. --- 1198,1206 ----
  1008.   break;
  1009.   case 84:
  1010. ! #line 525 "bc.y"
  1011.   { yyval.i_value = yyvsp[-1].i_value | 1; }
  1012.   break;
  1013.   case 85:
  1014. ! #line 527 "bc.y"
  1015.   {
  1016.                     yyval.i_value = 1;
  1017. ***************
  1018. *** 1220,1224 ****
  1019.   break;
  1020.   case 86:
  1021. ! #line 545 "bc.y"
  1022.   {
  1023.                     yyval.i_value = 1;
  1024. --- 1220,1224 ----
  1025.   break;
  1026.   case 86:
  1027. ! #line 543 "bc.y"
  1028.   {
  1029.                     yyval.i_value = 1;
  1030. ***************
  1031. *** 1241,1245 ****
  1032.   break;
  1033.   case 87:
  1034. ! #line 564 "bc.y"
  1035.   {
  1036.                     yyval.i_value = 1;
  1037. --- 1241,1245 ----
  1038.   break;
  1039.   case 87:
  1040. ! #line 562 "bc.y"
  1041.   {
  1042.                     yyval.i_value = 1;
  1043. ***************
  1044. *** 1266,1282 ****
  1045.   break;
  1046.   case 88:
  1047. ! #line 587 "bc.y"
  1048.   { generate ("cL"); yyval.i_value = 1;}
  1049.   break;
  1050.   case 89:
  1051. ! #line 589 "bc.y"
  1052.   { generate ("cR"); yyval.i_value = 1;}
  1053.   break;
  1054.   case 90:
  1055. ! #line 591 "bc.y"
  1056.   { generate ("cS"); yyval.i_value = 1;}
  1057.   break;
  1058.   case 91:
  1059. ! #line 593 "bc.y"
  1060.   {
  1061.                     warn ("read function");
  1062. --- 1266,1282 ----
  1063.   break;
  1064.   case 88:
  1065. ! #line 585 "bc.y"
  1066.   { generate ("cL"); yyval.i_value = 1;}
  1067.   break;
  1068.   case 89:
  1069. ! #line 587 "bc.y"
  1070.   { generate ("cR"); yyval.i_value = 1;}
  1071.   break;
  1072.   case 90:
  1073. ! #line 589 "bc.y"
  1074.   { generate ("cS"); yyval.i_value = 1;}
  1075.   break;
  1076.   case 91:
  1077. ! #line 591 "bc.y"
  1078.   {
  1079.                     warn ("read function");
  1080. ***************
  1081. *** 1285,1293 ****
  1082.   break;
  1083.   case 92:
  1084. ! #line 599 "bc.y"
  1085.   { yyval.i_value = lookup(yyvsp[0].s_value,SIMPLE); }
  1086.   break;
  1087.   case 93:
  1088. ! #line 601 "bc.y"
  1089.   {
  1090.                     if (yyvsp[-1].i_value > 1) warn("comparison in subscript");
  1091. --- 1285,1293 ----
  1092.   break;
  1093.   case 92:
  1094. ! #line 597 "bc.y"
  1095.   { yyval.i_value = lookup(yyvsp[0].s_value,SIMPLE); }
  1096.   break;
  1097.   case 93:
  1098. ! #line 599 "bc.y"
  1099.   {
  1100.                     if (yyvsp[-1].i_value > 1) warn("comparison in subscript");
  1101. ***************
  1102. *** 1296,1312 ****
  1103.   break;
  1104.   case 94:
  1105. ! #line 606 "bc.y"
  1106.   { yyval.i_value = 0; }
  1107.   break;
  1108.   case 95:
  1109. ! #line 608 "bc.y"
  1110.   { yyval.i_value = 1; }
  1111.   break;
  1112.   case 96:
  1113. ! #line 610 "bc.y"
  1114.   { yyval.i_value = 2; }
  1115.   break;
  1116.   case 97:
  1117. ! #line 612 "bc.y"
  1118.   { yyval.i_value = 3; }
  1119.   break;
  1120. --- 1296,1312 ----
  1121.   break;
  1122.   case 94:
  1123. ! #line 604 "bc.y"
  1124.   { yyval.i_value = 0; }
  1125.   break;
  1126.   case 95:
  1127. ! #line 606 "bc.y"
  1128.   { yyval.i_value = 1; }
  1129.   break;
  1130.   case 96:
  1131. ! #line 608 "bc.y"
  1132.   { yyval.i_value = 2; }
  1133.   break;
  1134.   case 97:
  1135. ! #line 610 "bc.y"
  1136.   { yyval.i_value = 3; }
  1137.   break;
  1138. diff -c2 -r 1.01/bc.y 1.02/bc.y
  1139. *** 1.01/bc.y    Thu Feb  6 16:45:33 1992
  1140. --- 1.02/bc.y    Tue Mar  3 10:29:36 1992
  1141. ***************
  1142. *** 4,8 ****
  1143.   
  1144.   /*  This file is part of bc written for MINIX.
  1145. !     Copyright (C) 1991 Free Software Foundation, Inc.
  1146.   
  1147.       This program is free software; you can redistribute it and/or modify
  1148. --- 4,8 ----
  1149.   
  1150.   /*  This file is part of bc written for MINIX.
  1151. !     Copyright (C) 1991, 1992 Free Software Foundation, Inc.
  1152.   
  1153.       This program is free software; you can redistribute it and/or modify
  1154. ***************
  1155. *** 87,94 ****
  1156.   %type <a_value> opt_parameter_list opt_auto_define_list define_list
  1157.   %type <a_value> opt_argument_list argument_list
  1158. - %type <s_value> NAME STRING NUMBER
  1159.   %type <i_value> program input_item semicolon_list statement_list
  1160.   %type <i_value> statement function   statement_or_error
  1161. - %type <i_value> NEWLINE AND OR NOT
  1162.   
  1163.   /* precedence */
  1164. --- 87,92 ----
  1165. diff -c2 -r 1.01/bcdefs.h 1.02/bcdefs.h
  1166. *** 1.01/bcdefs.h    Thu Feb  6 16:45:27 1992
  1167. --- 1.02/bcdefs.h    Tue Mar  3 10:29:30 1992
  1168. ***************
  1169. *** 2,6 ****
  1170.   
  1171.   /*  This file is part of bc written for MINIX.
  1172. !     Copyright (C) 1991 Free Software Foundation, Inc.
  1173.   
  1174.       This program is free software; you can redistribute it and/or modify
  1175. --- 2,6 ----
  1176.   
  1177.   /*  This file is part of bc written for MINIX.
  1178. !     Copyright (C) 1991, 1992 Free Software Foundation, Inc.
  1179.   
  1180.       This program is free software; you can redistribute it and/or modify
  1181. diff -c2 -r 1.01/const.h 1.02/const.h
  1182. *** 1.01/const.h    Thu Feb  6 16:45:28 1992
  1183. --- 1.02/const.h    Tue Mar  3 10:29:31 1992
  1184. ***************
  1185. *** 2,6 ****
  1186.   
  1187.   /*  This file is part of bc written for MINIX.
  1188. !     Copyright (C) 1991 Free Software Foundation, Inc.
  1189.   
  1190.       This program is free software; you can redistribute it and/or modify
  1191. --- 2,6 ----
  1192.   
  1193.   /*  This file is part of bc written for MINIX.
  1194. !     Copyright (C) 1991, 1992 Free Software Foundation, Inc.
  1195.   
  1196.       This program is free software; you can redistribute it and/or modify
  1197. ***************
  1198. *** 39,43 ****
  1199.      POSIX constants. */
  1200.   
  1201. ! #define BC_BASE_MAX       999    /* No good reason for this value. */
  1202.   #define BC_SCALE_MAX  INT_MAX
  1203.   #define BC_STRING_MAX INT_MAX
  1204. --- 39,43 ----
  1205.      POSIX constants. */
  1206.   
  1207. ! #define BC_BASE_MAX   INT_MAX
  1208.   #define BC_SCALE_MAX  INT_MAX
  1209.   #define BC_STRING_MAX INT_MAX
  1210. ***************
  1211. *** 58,62 ****
  1212.   #define BC_LABEL_GROUP 64
  1213.   #define BC_LABEL_LOG    6
  1214. ! #define BC_MAX_SEGS    10    /* Code segments. */
  1215.   #define BC_SEG_SIZE  1024
  1216.   #define BC_SEG_LOG     10
  1217. --- 58,62 ----
  1218.   #define BC_LABEL_GROUP 64
  1219.   #define BC_LABEL_LOG    6
  1220. ! #define BC_MAX_SEGS    16    /* Code segments. */
  1221.   #define BC_SEG_SIZE  1024
  1222.   #define BC_SEG_LOG     10
  1223. diff -c2 -r 1.01/execute.c 1.02/execute.c
  1224. *** 1.01/execute.c    Thu Feb  6 16:45:38 1992
  1225. --- 1.02/execute.c    Tue Mar  3 10:29:41 1992
  1226. ***************
  1227. *** 2,6 ****
  1228.   
  1229.   /*  This file is part of bc written for MINIX.
  1230. !     Copyright (C) 1991 Free Software Foundation, Inc.
  1231.   
  1232.       This program is free software; you can redistribute it and/or modify
  1233. --- 2,6 ----
  1234.   
  1235.   /*  This file is part of bc written for MINIX.
  1236. !     Copyright (C) 1991, 1992 Free Software Foundation, Inc.
  1237.   
  1238.       This program is free software; you can redistribute it and/or modify
  1239. ***************
  1240. *** 29,42 ****
  1241.   #include "bcdefs.h"
  1242.   #include <signal.h>
  1243. - #include <setjmp.h>
  1244.   #include "global.h"
  1245.   #include "proto.h"
  1246.   
  1247. - /* Local variable for SIGINT interrupt of an execution. */
  1248. - static jmp_buf env;
  1249.   
  1250. - 
  1251.   /* The SIGINT interrupt handling routine. */
  1252.   
  1253.   void
  1254.   stop_execution (sig)
  1255. --- 29,40 ----
  1256.   #include "bcdefs.h"
  1257.   #include <signal.h>
  1258.   #include "global.h"
  1259.   #include "proto.h"
  1260.   
  1261.   
  1262.   /* The SIGINT interrupt handling routine. */
  1263.   
  1264. + int had_sigint;
  1265. + 
  1266.   void
  1267.   stop_execution (sig)
  1268. ***************
  1269. *** 43,49 ****
  1270.        int sig;
  1271.   {
  1272.     printf ("\n");
  1273.     rt_error ("interrupted execution");
  1274. -   longjmp (env, 1);     /* Jump to the main code. */
  1275.   }
  1276.   
  1277. --- 41,47 ----
  1278.        int sig;
  1279.   {
  1280. +   had_sigint = TRUE;
  1281.     printf ("\n");
  1282.     rt_error ("interrupted execution");
  1283.   }
  1284.   
  1285. ***************
  1286. *** 88,93 ****
  1287.     /* Set up the interrupt mechanism for an interactive session. */
  1288.     if (interactive)
  1289. !     if (setjmp (env) == 0)
  1290.         signal (SIGINT, stop_execution);
  1291.      
  1292.     while (pc.pc_addr < functions[pc.pc_func].f_code_size && !runtime_error)
  1293. --- 86,93 ----
  1294.     /* Set up the interrupt mechanism for an interactive session. */
  1295.     if (interactive)
  1296. !     {
  1297.         signal (SIGINT, stop_execution);
  1298. +       had_sigint = FALSE;
  1299. +     }
  1300.      
  1301.     while (pc.pc_addr < functions[pc.pc_func].f_code_size && !runtime_error)
  1302. ***************
  1303. *** 523,530 ****
  1304.       }
  1305.   
  1306. -   /* Clean up the interrupt stuff. */
  1307. -   if (interactive)
  1308. -     signal (SIGINT, use_quit);
  1309. - 
  1310.     /* Clean up the function stack and pop all autos/parameters. */
  1311.     while (pc.pc_func != 0)
  1312. --- 523,526 ----
  1313. ***************
  1314. *** 540,543 ****
  1315. --- 536,546 ----
  1316.     while (ex_stack != NULL) pop();
  1317.   
  1318. +   /* Clean up the interrupt stuff. */
  1319. +   if (interactive)
  1320. +     {
  1321. +       signal (SIGINT, use_quit);
  1322. +       if (had_sigint)
  1323. +     printf ("Interruption completed.\n");
  1324. +     }
  1325.   }
  1326.   
  1327. diff -c2 -r 1.01/global.c 1.02/global.c
  1328. *** 1.01/global.c    Thu Feb  6 16:45:29 1992
  1329. --- 1.02/global.c    Tue Mar  3 10:29:32 1992
  1330. ***************
  1331. *** 2,6 ****
  1332.   
  1333.   /*  This file is part of bc written for MINIX.
  1334. !     Copyright (C) 1991 Free Software Foundation, Inc.
  1335.   
  1336.       This program is free software; you can redistribute it and/or modify
  1337. --- 2,6 ----
  1338.   
  1339.   /*  This file is part of bc written for MINIX.
  1340. !     Copyright (C) 1991, 1992 Free Software Foundation, Inc.
  1341.   
  1342.       This program is free software; you can redistribute it and/or modify
  1343. diff -c2 -r 1.01/global.h 1.02/global.h
  1344. *** 1.01/global.h    Thu Feb  6 16:45:30 1992
  1345. --- 1.02/global.h    Tue Mar  3 10:29:33 1992
  1346. ***************
  1347. *** 2,6 ****
  1348.   
  1349.   /*  This file is part of bc written for MINIX.
  1350. !     Copyright (C) 1991 Free Software Foundation, Inc.
  1351.   
  1352.       This program is free software; you can redistribute it and/or modify
  1353. --- 2,6 ----
  1354.   
  1355.   /*  This file is part of bc written for MINIX.
  1356. !     Copyright (C) 1991, 1992 Free Software Foundation, Inc.
  1357.   
  1358.       This program is free software; you can redistribute it and/or modify
  1359. diff -c2 -r 1.01/libmath.b 1.02/libmath.b
  1360. *** 1.01/libmath.b    Thu Feb  6 16:45:35 1992
  1361. --- 1.02/libmath.b    Tue Mar  3 10:29:37 1992
  1362. ***************
  1363. *** 2,6 ****
  1364.   
  1365.   /*  This file is part of bc written for MINIX.
  1366. !     Copyright (C) 1991 Free Software Foundation, Inc.
  1367.   
  1368.       This program is free software; you can redistribute it and/or modify
  1369. --- 2,6 ----
  1370.   
  1371.   /*  This file is part of bc written for MINIX.
  1372. !     Copyright (C) 1991, 1992 Free Software Foundation, Inc.
  1373.   
  1374.       This program is free software; you can redistribute it and/or modify
  1375. diff -c2 -r 1.01/load.c 1.02/load.c
  1376. *** 1.01/load.c    Thu Feb  6 16:45:35 1992
  1377. --- 1.02/load.c    Tue Mar  3 10:29:37 1992
  1378. ***************
  1379. *** 2,6 ****
  1380.   
  1381.   /*  This file is part of bc written for MINIX.
  1382. !     Copyright (C) 1991 Free Software Foundation, Inc.
  1383.   
  1384.       This program is free software; you can redistribute it and/or modify
  1385. --- 2,6 ----
  1386.   
  1387.   /*  This file is part of bc written for MINIX.
  1388. !     Copyright (C) 1991, 1992 Free Software Foundation, Inc.
  1389.   
  1390.       This program is free software; you can redistribute it and/or modify
  1391. ***************
  1392. *** 55,58 ****
  1393. --- 55,61 ----
  1394.     int seg, offset, func;
  1395.   
  1396. +   /* If there was an error, don't continue. */
  1397. +   if (had_error) return;
  1398. + 
  1399.     /* Calculate the segment and offset. */
  1400.     seg = load_adr.pc_addr >> BC_SEG_LOG;
  1401. ***************
  1402. *** 60,63 ****
  1403. --- 63,72 ----
  1404.     func = load_adr.pc_func;
  1405.   
  1406. +   if (seg >= BC_MAX_SEGS)
  1407. +     {
  1408. +       yyerror ("Function too big.");
  1409. +       return;
  1410. +     }
  1411. + 
  1412.     if (functions[func].f_body[seg] == NULL)
  1413.       functions[func].f_body[seg] = (char *) bc_malloc (BC_SEG_SIZE);
  1414. ***************
  1415. *** 153,156 ****
  1416. --- 162,168 ----
  1417.     while (*str != 0)
  1418.       {
  1419. +       /* If there was an error, don't continue. */
  1420. +       if (had_error) return;
  1421. + 
  1422.         if (load_str)
  1423.       {
  1424. ***************
  1425. *** 249,254 ****
  1426.           
  1427.             case ']':  /* A function end */
  1428. !         if (!had_error) 
  1429. !           functions[load_adr.pc_func].f_defined = TRUE;
  1430.           load_adr = save_adr;
  1431.           break;
  1432. --- 261,265 ----
  1433.           
  1434.             case ']':  /* A function end */
  1435. !         functions[load_adr.pc_func].f_defined = TRUE;
  1436.           load_adr = save_adr;
  1437.           break;
  1438. diff -c2 -r 1.01/main.c 1.02/main.c
  1439. *** 1.01/main.c    Thu Feb  6 16:45:30 1992
  1440. --- 1.02/main.c    Tue Mar  3 10:29:33 1992
  1441. ***************
  1442. *** 2,6 ****
  1443.   
  1444.   /*  This file is part of bc written for MINIX.
  1445. !     Copyright (C) 1991 Free Software Foundation, Inc.
  1446.   
  1447.       This program is free software; you can redistribute it and/or modify
  1448. --- 2,6 ----
  1449.   
  1450.   /*  This file is part of bc written for MINIX.
  1451. !     Copyright (C) 1991, 1992 Free Software Foundation, Inc.
  1452.   
  1453.       This program is free software; you can redistribute it and/or modify
  1454. ***************
  1455. *** 128,132 ****
  1456.   
  1457.     /* Open the other files. */
  1458. !   if (use_math)
  1459.       {
  1460.   #ifdef BC_MATH_FILE
  1461. --- 128,132 ----
  1462.   
  1463.     /* Open the other files. */
  1464. !   if (use_math && first_file)
  1465.       {
  1466.   #ifdef BC_MATH_FILE
  1467. ***************
  1468. *** 138,142 ****
  1469.         new_yy_file (new_file);
  1470.         return TRUE;
  1471. !     }
  1472.         else
  1473.       {
  1474. --- 138,142 ----
  1475.         new_yy_file (new_file);
  1476.         return TRUE;
  1477. !     }    
  1478.         else
  1479.       {
  1480. diff -c2 -r 1.01/number.c 1.02/number.c
  1481. *** 1.01/number.c    Thu Feb  6 16:45:42 1992
  1482. --- 1.02/number.c    Tue Mar  3 10:29:45 1992
  1483. ***************
  1484. *** 2,6 ****
  1485.   
  1486.   /*  This file is part of bc written for MINIX.
  1487. !     Copyright (C) 1991 Free Software Foundation, Inc.
  1488.   
  1489.       This program is free software; you can redistribute it and/or modify
  1490. --- 2,6 ----
  1491.   
  1492.   /*  This file is part of bc written for MINIX.
  1493. !     Copyright (C) 1991, 1992 Free Software Foundation, Inc.
  1494.   
  1495.       This program is free software; you can redistribute it and/or modify
  1496. ***************
  1497. *** 1162,1166 ****
  1498.     int  index, fdigit, pre_space;
  1499.     stk_rec *digits, *temp;
  1500. !   bc_num int_part, frac_part, base, cur_dig, t_num;
  1501.   
  1502.     /* The negative sign if needed. */
  1503. --- 1162,1166 ----
  1504.     int  index, fdigit, pre_space;
  1505.     stk_rec *digits, *temp;
  1506. !   bc_num int_part, frac_part, base, cur_dig, t_num, max_o_digit;
  1507.   
  1508.     /* The negative sign if needed. */
  1509. ***************
  1510. *** 1200,1204 ****
  1511. --- 1200,1207 ----
  1512.       bc_sub (num, int_part, &frac_part);
  1513.       int2num (&base, o_base);
  1514. +     init_num (&max_o_digit);
  1515. +     int2num (&max_o_digit, o_base-1);
  1516.   
  1517. + 
  1518.       /* Get the digits of the integer part and push them on a stack. */
  1519.       while (!is_zero (int_part))
  1520. ***************
  1521. *** 1224,1228 ****
  1522.             (*out_char) (ref_str[ (int) temp->digit]);
  1523.           else
  1524. !           out_long (temp->digit, base->n_len, 1, out_char);
  1525.           free (temp);
  1526.             }
  1527. --- 1227,1231 ----
  1528.             (*out_char) (ref_str[ (int) temp->digit]);
  1529.           else
  1530. !           out_long (temp->digit, max_o_digit->n_len, 1, out_char);
  1531.           free (temp);
  1532.             }
  1533. ***************
  1534. *** 1243,1247 ****
  1535.           (*out_char) (ref_str[fdigit]);
  1536.             else {
  1537. !         out_long (fdigit, base->n_len, pre_space, out_char);
  1538.           pre_space = 1;
  1539.             }
  1540. --- 1246,1250 ----
  1541.           (*out_char) (ref_str[fdigit]);
  1542.             else {
  1543. !         out_long (fdigit, max_o_digit->n_len, pre_space, out_char);
  1544.           pre_space = 1;
  1545.             }
  1546. diff -c2 -r 1.01/number.h 1.02/number.h
  1547. *** 1.01/number.h    Thu Feb  6 16:45:31 1992
  1548. --- 1.02/number.h    Tue Mar  3 10:29:34 1992
  1549. ***************
  1550. *** 2,6 ****
  1551.   
  1552.   /*  This file is part of bc written for MINIX.
  1553. !     Copyright (C) 1991 Free Software Foundation, Inc.
  1554.   
  1555.       This program is free software; you can redistribute it and/or modify
  1556. --- 2,6 ----
  1557.   
  1558.   /*  This file is part of bc written for MINIX.
  1559. !     Copyright (C) 1991, 1992 Free Software Foundation, Inc.
  1560.   
  1561.       This program is free software; you can redistribute it and/or modify
  1562. diff -c2 -r 1.01/proto.h 1.02/proto.h
  1563. *** 1.01/proto.h    Thu Feb  6 16:45:36 1992
  1564. --- 1.02/proto.h    Tue Mar  3 10:29:38 1992
  1565. ***************
  1566. *** 2,6 ****
  1567.   
  1568.   /*  This file is part of bc written for MINIX.
  1569. !     Copyright (C) 1991 Free Software Foundation, Inc.
  1570.   
  1571.       This program is free software; you can redistribute it and/or modify
  1572. --- 2,6 ----
  1573.   
  1574.   /*  This file is part of bc written for MINIX.
  1575. !     Copyright (C) 1991, 1992 Free Software Foundation, Inc.
  1576.   
  1577.       This program is free software; you can redistribute it and/or modify
  1578. diff -c2 -r 1.01/sbc.y 1.02/sbc.y
  1579. *** 1.01/sbc.y    Thu Feb  6 16:45:36 1992
  1580. --- 1.02/sbc.y    Tue Mar  3 10:29:38 1992
  1581. ***************
  1582. *** 3,7 ****
  1583.    
  1584.   /*  This file is part of bc written for MINIX.
  1585. !     Copyright (C) 1991 Free Software Foundation, Inc.
  1586.   
  1587.       This program is free software; you can redistribute it and/or modify
  1588. --- 3,7 ----
  1589.    
  1590.   /*  This file is part of bc written for MINIX.
  1591. !     Copyright (C) 1991, 1992 Free Software Foundation, Inc.
  1592.   
  1593.       This program is free software; you can redistribute it and/or modify
  1594. diff -c2 -r 1.01/scan.c.dist 1.02/scan.c.dist
  1595. *** 1.01/scan.c.dist    Thu Feb  6 16:45:44 1992
  1596. --- 1.02/scan.c.dist    Tue Mar  3 10:29:47 1992
  1597. ***************
  1598. *** 164,168 ****
  1599.   typedef struct yy_buffer_state *YY_BUFFER_STATE;
  1600.   
  1601. ! #define YY_CHAR char
  1602.   # line 1 "scan.l"
  1603.   #define INITIAL 0
  1604. --- 164,168 ----
  1605.   typedef struct yy_buffer_state *YY_BUFFER_STATE;
  1606.   
  1607. ! #define YY_CHAR unsigned char
  1608.   # line 1 "scan.l"
  1609.   #define INITIAL 0
  1610. ***************
  1611. *** 171,175 ****
  1612.   
  1613.   /*  This file is part of bc written for MINIX.
  1614. !     Copyright (C) 1991 Free Software Foundation, Inc.
  1615.   
  1616.       This program is free software; you can redistribute it and/or modify
  1617. --- 171,175 ----
  1618.   
  1619.   /*  This file is part of bc written for MINIX.
  1620. !     Copyright (C) 1991, 1992 Free Software Foundation, Inc.
  1621.   
  1622.       This program is free software; you can redistribute it and/or modify
  1623. ***************
  1624. *** 330,334 ****
  1625.       } ;
  1626.   
  1627. ! static const YY_CHAR yy_ec[128] =
  1628.       {   0,
  1629.           1,    1,    1,    1,    1,    1,    1,    1,    2,    3,
  1630. --- 330,334 ----
  1631.       } ;
  1632.   
  1633. ! static const YY_CHAR yy_ec[256] =
  1634.       {   0,
  1635.           1,    1,    1,    1,    1,    1,    1,    1,    2,    3,
  1636. ***************
  1637. *** 345,349 ****
  1638.          31,   32,   33,   34,   35,   36,   37,   38,   39,   40,
  1639.          41,   42,   43,   44,   45,   46,   47,   36,   48,   36,
  1640. !        49,   36,   50,   51,   52,    1,    1
  1641.       } ;
  1642.   
  1643. --- 345,363 ----
  1644.          31,   32,   33,   34,   35,   36,   37,   38,   39,   40,
  1645.          41,   42,   43,   44,   45,   46,   47,   36,   48,   36,
  1646. !        49,   36,   50,   51,   52,    1,    1,    1,    1,    1,
  1647. !         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
  1648. !         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
  1649. !         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
  1650. !         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
  1651. !         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
  1652. !         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
  1653. !         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
  1654. ! 
  1655. !         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
  1656. !         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
  1657. !         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
  1658. !         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
  1659. !         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
  1660. !         1,    1,    1,    1,    1
  1661.       } ;
  1662.   
  1663. ***************
  1664. *** 761,768 ****
  1665.   # line 130 "scan.l"
  1666.   {
  1667. !            char *look;
  1668.             yylval.s_value = strcopyof(yytext);
  1669.             for (look = yytext; *look != 0; look++)
  1670. !         if (*look == '\n') line_no++;
  1671.             return(STRING);
  1672.           }
  1673. --- 775,787 ----
  1674.   # line 130 "scan.l"
  1675.   {
  1676. !            unsigned char *look;
  1677. !           int count = 0;
  1678.             yylval.s_value = strcopyof(yytext);
  1679.             for (look = yytext; *look != 0; look++)
  1680. !         {
  1681. !           if (*look == '\n') line_no++;
  1682. !           if (*look == '"')  count++;
  1683. !         }
  1684. !           if (count != 2) yyerror ("NUL character in string.");
  1685.             return(STRING);
  1686.           }
  1687. ***************
  1688. *** 769,775 ****
  1689.       YY_BREAK
  1690.   case 37:
  1691. ! # line 137 "scan.l"
  1692.   {
  1693. !           char *src, *dst;
  1694.             int len;
  1695.             /* remove a trailing decimal point. */
  1696. --- 788,794 ----
  1697.       YY_BREAK
  1698.   case 37:
  1699. ! # line 142 "scan.l"
  1700.   {
  1701. !           unsigned char *src, *dst;
  1702.             int len;
  1703.             /* remove a trailing decimal point. */
  1704. ***************
  1705. *** 799,807 ****
  1706.       YY_BREAK
  1707.   case 38:
  1708. ! # line 164 "scan.l"
  1709. ! yyerror ("illegal character: %s",yytext);
  1710.       YY_BREAK
  1711.   case 39:
  1712. ! # line 165 "scan.l"
  1713.   ECHO;
  1714.       YY_BREAK
  1715. --- 818,834 ----
  1716.       YY_BREAK
  1717.   case 38:
  1718. ! # line 169 "scan.l"
  1719. ! {
  1720. !       if (yytext[0] < ' ')
  1721. !         yyerror ("illegal character: ^%c",yytext[0] + '@');
  1722. !       else
  1723. !         if (yytext[0] > '~')
  1724. !           yyerror ("illegal character: \\%3d", (int) yytext[0]);
  1725. !         else
  1726. !           yyerror ("illegal character: %s",yytext);
  1727. !     }
  1728.       YY_BREAK
  1729.   case 39:
  1730. ! # line 178 "scan.l"
  1731.   ECHO;
  1732.       YY_BREAK
  1733. ***************
  1734. *** 1073,1077 ****
  1735.       }
  1736.       yy_current_state = yy_nxt[yy_base[yy_current_state] + yy_c];
  1737. !     yy_is_jam = (yy_base[yy_current_state] == 194);
  1738.   
  1739.       return ( yy_is_jam ? 0 : yy_current_state );
  1740. --- 1100,1104 ----
  1741.       }
  1742.       yy_current_state = yy_nxt[yy_base[yy_current_state] + yy_c];
  1743. !     yy_is_jam = (yy_current_state == 143);
  1744.   
  1745.       return ( yy_is_jam ? 0 : yy_current_state );
  1746. ***************
  1747. *** 1327,1331 ****
  1748.       b->yy_eof_status = EOF_NOT_SEEN;
  1749.       }
  1750. ! # line 165 "scan.l"
  1751.   
  1752.   
  1753. --- 1354,1358 ----
  1754.       b->yy_eof_status = EOF_NOT_SEEN;
  1755.       }
  1756. ! # line 178 "scan.l"
  1757.   
  1758.   
  1759. diff -c2 -r 1.01/scan.l 1.02/scan.l
  1760. *** 1.01/scan.l    Thu Feb  6 16:45:31 1992
  1761. --- 1.02/scan.l    Tue Mar  3 10:29:39 1992
  1762. ***************
  1763. *** 3,7 ****
  1764.   
  1765.   /*  This file is part of bc written for MINIX.
  1766. !     Copyright (C) 1991 Free Software Foundation, Inc.
  1767.   
  1768.       This program is free software; you can redistribute it and/or modify
  1769. --- 3,7 ----
  1770.   
  1771.   /*  This file is part of bc written for MINIX.
  1772. !     Copyright (C) 1991, 1992 Free Software Foundation, Inc.
  1773.   
  1774.       This program is free software; you can redistribute it and/or modify
  1775. ***************
  1776. *** 129,140 ****
  1777.   [a-z][a-z0-9_]* { yylval.s_value = strcopyof(yytext); return(NAME); }
  1778.   \"[^\"]*\"  {
  1779. !            char *look;
  1780.             yylval.s_value = strcopyof(yytext);
  1781.             for (look = yytext; *look != 0; look++)
  1782. !         if (*look == '\n') line_no++;
  1783.             return(STRING);
  1784.           }
  1785.   {DIGIT}({DIGIT}|\\\n)*("."({DIGIT}|\\\n)*)?|"."(\\\n)*{DIGIT}({DIGIT}|\\\n)* {
  1786. !           char *src, *dst;
  1787.             int len;
  1788.             /* remove a trailing decimal point. */
  1789. --- 129,145 ----
  1790.   [a-z][a-z0-9_]* { yylval.s_value = strcopyof(yytext); return(NAME); }
  1791.   \"[^\"]*\"  {
  1792. !            unsigned char *look;
  1793. !           int count = 0;
  1794.             yylval.s_value = strcopyof(yytext);
  1795.             for (look = yytext; *look != 0; look++)
  1796. !         {
  1797. !           if (*look == '\n') line_no++;
  1798. !           if (*look == '"')  count++;
  1799. !         }
  1800. !           if (count != 2) yyerror ("NUL character in string.");
  1801.             return(STRING);
  1802.           }
  1803.   {DIGIT}({DIGIT}|\\\n)*("."({DIGIT}|\\\n)*)?|"."(\\\n)*{DIGIT}({DIGIT}|\\\n)* {
  1804. !           unsigned char *src, *dst;
  1805.             int len;
  1806.             /* remove a trailing decimal point. */
  1807. ***************
  1808. *** 162,166 ****
  1809.             return(NUMBER);
  1810.           }
  1811. ! .       yyerror ("illegal character: %s",yytext);
  1812.   %%
  1813.   
  1814. --- 167,179 ----
  1815.             return(NUMBER);
  1816.           }
  1817. ! .       {
  1818. !       if (yytext[0] < ' ')
  1819. !         yyerror ("illegal character: ^%c",yytext[0] + '@');
  1820. !       else
  1821. !         if (yytext[0] > '~')
  1822. !           yyerror ("illegal character: \\%3d", (int) yytext[0]);
  1823. !         else
  1824. !           yyerror ("illegal character: %s",yytext);
  1825. !     }
  1826.   %%
  1827.   
  1828. diff -c2 -r 1.01/storage.c 1.02/storage.c
  1829. *** 1.01/storage.c    Thu Feb  6 16:45:41 1992
  1830. --- 1.02/storage.c    Tue Mar  3 10:29:44 1992
  1831. ***************
  1832. *** 2,6 ****
  1833.   
  1834.   /*  This file is part of bc written for MINIX.
  1835. !     Copyright (C) 1991 Free Software Foundation, Inc.
  1836.   
  1837.       This program is free software; you can redistribute it and/or modify
  1838. --- 2,6 ----
  1839.   
  1840.   /*  This file is part of bc written for MINIX.
  1841. !     Copyright (C) 1991, 1992 Free Software Foundation, Inc.
  1842.   
  1843.       This program is free software; you can redistribute it and/or modify
  1844. diff -c2 -r 1.01/util.c 1.02/util.c
  1845. *** 1.01/util.c    Thu Feb  6 16:45:39 1992
  1846. --- 1.02/util.c    Tue Mar  3 10:29:42 1992
  1847. ***************
  1848. *** 2,6 ****
  1849.   
  1850.   /*  This file is part of bc written for MINIX.
  1851. !     Copyright (C) 1991 Free Software Foundation, Inc.
  1852.   
  1853.       This program is free software; you can redistribute it and/or modify
  1854. --- 2,6 ----
  1855.   
  1856.   /*  This file is part of bc written for MINIX.
  1857. !     Copyright (C) 1991, 1992 Free Software Foundation, Inc.
  1858.   
  1859.       This program is free software; you can redistribute it and/or modify
  1860. diff -c2 -r 1.01/version.h 1.02/version.h
  1861. *** 1.01/version.h    Thu Feb  6 16:45:32 1992
  1862. --- 1.02/version.h    Tue Mar  3 10:29:34 1992
  1863. ***************
  1864. *** 1,3 ****
  1865.   #define BC_VERSION  \
  1866. !   "bc 1.01 (Nov 25, 1991), Copyright (C) 1991 Free Software Foundation, Inc."
  1867.   
  1868. --- 1,3 ----
  1869.   #define BC_VERSION  \
  1870. !  "bc 1.02 (Mar 3, 92) Copyright (C) 1991, 1992 Free Software Foundation, Inc."
  1871.   
  1872. exit 0 # Just in case...
  1873.